﻿Imports System.Collections.ObjectModel
Module Module1
  Sub Main()
    Dim lista As New List(Of String)
    lista.Add("Oggetto")
    lista.Add("Classe")
    lista.Add("Attributo")
    lista.Add("Metodo")
    Dim collezione As _
        New ReadOnlyCollection(Of _
        String)(lista)
    Console.WriteLine("Numero coppie " & _
        "inserite: " & collezione.Count)
    Console.WriteLine("La collezione " & _
        "contiene l'elemento 'Metodo'? " & _
        collezione.Contains("Metodo"))
    Console.WriteLine("La collezione " & _
        "contiene l'elemento 'Classe'? " & _
        collezione.Contains("Classe"))
    Console.WriteLine("La collezione " & _
        "contiene l'elemento " & _
        "'Interfaccia'? " & _
        collezione.Contains("Interfaccia"))
    Dim matrice(collezione.Count - 1) _
        As String
    collezione.CopyTo(matrice, 0)
    Console.WriteLine()
    Console.WriteLine("Elenco stringhe " & _
        "contenute " & _
        "nella collezione:")
    For Each elemento As String In matrice
      Console.WriteLine(elemento)
    Next
    Console.ReadLine()
  End Sub
End Module
